home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / simcode.arc / SIMTERM.INC < prev    next >
Encoding:
Text File  |  1983-06-03  |  1.1 KB  |  38 lines
  1. {$list-}
  2. const
  3.   NULLB = #700;
  4.   BOTTOM = 23;        {bottom line of screen}
  5.   TOP = 0;        {top line on screen}
  6.   RIGHT_MAR = 79;    {screen limits}
  7.   LEFT_MAR = 0;
  8.   END_KEY = 79;     {"End" key}
  9.   INSERT_KEY = 82;        {xmit line}
  10.   C_UP = 72;        {cursor UP}
  11.   C_DOWN = 80;        {cursor DOWN}
  12.   C_LEFT = 75;        {cursor LEFT}
  13.   C_RIGHT = 77;     {cursor RIGHT}
  14.   PG_UP = 73;        {Page UP}
  15.   PG_DOWN = 81;     {Page DOWN}
  16.   NULL_CHAR = 3;    {^@ - send 'null'}
  17.   CNTL_END = 117;    {toggle the LOG BOTTOM}
  18.   NL = chr(10);     {new line}
  19.   DELETE_KEY = 83;        {clear screen from cursor}
  20.   F9 = 67;        {function key F9 -- ^S}
  21.   F10 = 68;        {function key f10 -- ^Q}
  22.   XON_CHAR = chr(17);    {^Q}
  23.   XOFF_CHAR = chr(19);    {^S}
  24.   MAX_LINES = 100;    {# of saved lines}
  25.   LINE_SIZE = 160;    {# of chars on display line}
  26. type
  27.   CRT_SIZE = TOP..BOTTOM+1;
  28.   INC_LIMIT = -1..1;
  29.   SCREEN_SAVE = array[1..MAX_LINES] of string(LINE_SIZE);
  30.   screen_buf = array[1..80] of
  31.         record
  32.         d_char : byte;
  33.         d_attr : byte;
  34.         end;
  35.   LOOP_FLAG = (HANG,EXIT);
  36.   PRT_ATTR = (PRT_NORMAL,PRT_UNDERLINE,PRT_SUPER,PRT_SUB,PRT_BOLD);
  37. {$list+}
  38.